home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 3: The Continuation / 17-Bit_The_Continuation_Disc.iso / arug / arug 12 / misc / antenna-program1.0 < prev    next >
Text File  |  1994-01-27  |  3KB  |  95 lines
  1. 'Date: 881027&/339
  2. 'From: N0JAA @ WB2HBZ
  3. 'Message-Id: <88102&@WB2HBZ>
  4. 'TO: ALL @ RT5N
  5. 'Subject: ANTENNA PROGRAM (REVISED)
  6. '#Path: 0!0!LOG07.CEO.DG.COM!DTOS (DTOS @ The Internet)
  7.  
  8. 'HERE IS The REVISED ANTENNA DESIGN PROGRAM THAT WAS ORIGINALLY   
  9. 'POSTED ON 3 OCT 88!
  10. 'HAVE FUN AND ENJOY.
  11. 'PAUL, N0JAA.
  12.  
  13. ' RECEIVED ON PACKET & AMIGA-IZED BY K. WEHR - WB3KRN
  14. 80 REM PROGRAM WRITTEN BY WK0A & NOJAA.
  15. 90 PRINT "ANTENNA PROGRAM"
  16. 100 PRINT :PRINT :PRINT "1 = GROUND PLANE ANTENNA"
  17. 110 PRINT "2 = DIPOLE"
  18. 120 PRINT "3 = FREQUENCY TO WAVELENGTH OR WAVELENGTH TO FREQUENCY"
  19. 130 PRINT "4= CUBICAL QUAD OR DELTA"
  20. 131 PRINT "5= FREQUENCY RANGE FOR ANTENNA"
  21. 132 PRINT "6= STOP PROGRAM"
  22. 140 INPUT X
  23. 141 IF X=1 THEN GOTO 160
  24. 142 IF X=2 THEN GOTO 320
  25. 143 IF X=3 THEN GOTO 450
  26. 144 IF X=4 THEN GOTO 480
  27. 145 IF X=5 THEN GOTO 800
  28. 146 IF X=6 THEN STOP
  29. 150 REM  PROGRAM STARTS HERE
  30. 160 PRINT "GROUND PLANE ANTENNA"
  31. 170 PRINT "    ! "
  32. 180 PRINT "   / \ RADIALS"
  33. 190 PRINT
  34. 200 PRINT"RADIALS AT 45 DEGREES--ANT HUNG FROM TREE--QST SEPT 84 PG 16"
  35. 210 PRINT
  36. 220 PRINT "30M  EACH LEG 23 FEET 1 1/2 INCHES"
  37. 230 PRINT
  38. 240 PRINT "INPUT FREQUENCY (IN MHZ) OF OPERATION "
  39. 241 INPUT M
  40. 250 LET D=234/M
  41. 260 PRINT " 3 LENGTHS ARE ";D;" FEET "
  42. 270 LET H=INT(D)
  43. 280 LET H=D-H
  44. 290 IF H=0 THEN GOTO 100
  45. 300 PRINT " FRACTION INCHES = ";H*12
  46. 310 GOTO 100
  47. 320 PRINT "DIPOLE"
  48. 330 PRINT "A MULTIBAND DIPOLE CAN BE MADE WITH 300 OHM FEEDLINE "
  49. 340 PRINT "LENGTH THE ANT A HALF-WAVE LENGTH FOR LOWEST FREQ."
  50. 350 PRINT "TO USE"
  51. 360 PRINT "INPUT FREQUENCY IN MHZ"
  52. 361 INPUT M
  53. 370 LET D=468/M
  54. 380 PRINT " EACH LEG = ";D/2
  55. 390 LET D=D/2
  56. 400 LET H=INT(D)
  57. 410 LET H=D-H
  58. 420 IF H=0 THEN GOTO 100
  59. 430 PRINT " FRACTION INCHES = ";H*12
  60. 440 GOTO 100
  61. 450 PRINT "WAVELENGTH OR FREQUENCY IN MHZ"
  62. 451 INPUT M
  63. 460 PRINT 300/M
  64. 470 GOTO 100
  65. 480 PRINT "INPUT FREQUENCY FOR QUAD OR DELTA"
  66. 490 INPUT F
  67. 500 LET L=1005/F
  68. 510 PRINT " TOTAL LENGTH = ";L
  69. 520 PRINT "QUAD SIDE =";L/4;"     DELTA SIDE = ";L/3
  70. 530 PRINT " REFLECTOR IS 5% GREATER THAN DRIVEN ELEMENT"
  71. 540 PRINT "bottom center feed is horizontal."
  72. 550 PRINT " SIDE CENTER FEED IS VERTICALLY POLARIZED"
  73. 560 GOTO 100
  74. 800 PRINT "GENERATES ANTENNA LENGTH FOR A RANGE OF FREQUENCIES"
  75. 820 PRINT " INPUT STARTING FREQUENCY IN MHZ"
  76. 830 INPUT M
  77. 840 PRINT "INPUT ENDING FREQUENCY IN MHZ"
  78. 850 INPUT N
  79. 860 FOR X=M TO N STEP .01
  80. 861   LET I=468/X
  81. 870   LET K=468/X/2
  82. 880   LET Y=INT(468/X/2)
  83. 890   LET Z=K-Y
  84. 900   LET A=12*Z
  85. 910   LET B=INT(12*Z)
  86. 920   LET C=A-B
  87. 921   LET C=INT(C*16)
  88. 930   PRINT "@ FREQ";
  89. 931   PRINT USING "#####.###";X;
  90. 940  PRINT " LENGTH = ";I;"FT ONE LEG = ";Y;"FT ";B;"INCHES ";C;"/16THS"
  91. 990 NEXT X
  92. 995 GOTO 100
  93. 999 END
  94.  
  95.